home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 07 / 6 / DISK0760.ZIP / EXIST.INC < prev    next >
Text File  |  1987-12-08  |  172b  |  11 lines
  1. Function Exist(FileName : Str12):Boolean;
  2. Var
  3.   Fil : File;
  4. Begin
  5. Assign(Fil,FileName);
  6. {$I-}
  7. Reset(Fil);
  8. Close(Fil);
  9. {$I+}
  10. Exist := (IOResult = 0);
  11. End; {Exist}